home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 013a / mexlas.zip / TXPATTER.PRG < prev    next >
Text File  |  1991-09-01  |  979b  |  34 lines
  1. *:*********************************************************************
  2. *:
  3. *:   Program file: TXPATTERNBAR.PRG
  4. *:
  5. *:         System: Texas Associated Software Laser Library
  6. *:         Author: Jose E. Lopez, Jr.
  7. *:      Copyright (c) 1991, Texas Associated Software - Red Oak, TX
  8. *:
  9. *:*********************************************************************
  10.  
  11. txinit(_print_port)
  12. txreset()
  13. txpagesize("letter")
  14. txorient("P")
  15. txsetlpi(6)
  16.  
  17. txpatternbar(01, 10, 20, 15, 1, .t.)
  18. txcolprint(17, 12, .f., "Fill Pattern 1")
  19. txpatternbar(01, 50, 20, 15, 2, .t.)
  20. txcolprint(17, 52, .f., "Fill Pattern 2")
  21. txpatternbar(21, 10, 20, 15, 3, .t.)
  22. txcolprint(37, 12, .f., "Fill Pattern 3")
  23. txpatternbar(21, 50, 20, 15, 4, .t.)
  24. txcolprint(37, 52, .f., "Fill Pattern 4")
  25. txpatternbar(41, 10, 20, 15, 5, .t.)
  26. txcolprint(57, 12, .f., "Fill Pattern 5")
  27. txpatternbar(41, 50, 20, 15, 6, .t.)
  28. txcolprint(57, 52, .f., "Fill Pattern 6")
  29.  
  30. txclear()
  31.  
  32.  
  33. *: EOF: TXPATTERNBAR.PRG
  34.